home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 January & February / rerun-1986-01-02.d64 / autorun 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  817b  |  29 lines
  1. 10 printchr$(147)chr$(18)"auto-run converter"
  2. 20 s=0:fori=828to862:readv:pokei,v:s=s+v:nexti:ifs=3677then40
  3. 30 print"error in data":end
  4. 40 print"insert program disk"
  5. 50 input"program name";f1$
  6. 60 close4:close5:close15:open15,8,15,"i":close15:open15,8,15
  7. 70 open4,8,4,"0:"+f1$+",p,r":gosub230:ifer<>0thenclose4:goto50
  8. 80 input"output name";f1$
  9. 90 open5,8,5,"0:"+f1$+",p,w":gosub230:ifer<>0thenclose5:goto80
  10. 100 z$=chr$(0)
  11. 110 poke829,peek(770):poke834,peek(771):poke857,peek(771)
  12. 120 printchr$(147)"wait"
  13. 130 get#4,a$:get#4,b$:l=asc(a$+z$)+256*asc(b$+z$)-1
  14. 140 print#5,chr$(2)chr$(3)chr$(60)chr$(3);
  15. 150 c$="run"+chr$(0)
  16. 160 fori=1tolen(c$):poke858+i,asc(mid$(c$,i,1)):nexti
  17. 170 fori=772tol:print#5,chr$(peek(i));:nexti
  18. 180 print"copying file"
  19. 190 get#4,a$:s=st:print#5,chr$(asc(a$+z$));:ifs=0then190
  20. 200 gosub230
  21. 210 close4:close5:close15
  22. 220 printe1$:print"done":end
  23. 230 input#15,er,e1$,t,s:ifer=0thenreturn
  24. 240 printe1$;t;s:return
  25. 250 data169,131,141,2,3,169,196,141,3,3
  26. 260 data160,0,185,91,3,153,0,2,240,3
  27. 270 data200,208,245,162,255,160,1,76,134,196
  28. 280 data0,82,85,78,0
  29.